home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / opint102.5rc / D_USER.PAS < prev    next >
Pascal/Delphi Source File  |  1988-12-04  |  4KB  |  148 lines
  1. Program DemoUserFile;
  2.  
  3.   {***************************************************************************}
  4.   {*                                                                         *}
  5.   {* O p u s   I n t e r f a c e    V e r   1.02     Demo Program.           *}
  6.   {*                                                                         *}
  7.   {* Opus V 1.0x Interface for Turbo Pascal Ver 4.0                          *}
  8.   {*                                                                         *}
  9.   {*  These Structures,Procedures and Functions may help you to make OPUS    *}
  10.   {* utilities for to help other SysOps, Please read the Documentation.      *}
  11.   {*                                                                         *}
  12.   {*  Regards                                                                *}
  13.   {*    Per Holm                                                             *}
  14.   {*                                                                         *}
  15.   {*   FIDO: Per Holm - Asgaard BBS 2:230/22.0                               *}
  16.   {*   UUCP: perholm@daimi.DK                                                *}
  17.   {*                                                                         *}
  18.   {***************************************************************************}
  19.  
  20.  
  21. Uses
  22.   OPINT;
  23.  
  24. VAR
  25.   UsrPtr: _UsrPtr;
  26.  
  27. PROCEDURE ChkError;
  28.  
  29.   VAR
  30.     Err: Integer;
  31.  
  32.   BEGIN
  33.     Err:=OpIntERROR;
  34.     IF Err>0 THEN
  35.       BEGIN
  36.         Writeln('You Got Yourself an Error ',Err,' During OpInt Access');
  37.         Readln;
  38.       END;
  39.   END;
  40.  
  41. PROCEDURE WriteUsr(VAR Usr:_Usr);
  42.  
  43.   BEGIN
  44.     with USR do
  45.       BEGIN
  46.         writeln('Name .......: ',name);
  47.         writeln('Password ...: ',Password);
  48.         writeln('LastDate ...: ',LastDate);
  49.         writeln('Download ...: ',Download);
  50.       END;
  51.   END;
  52.  
  53. PROCEDURE WrUsr;
  54.  
  55.   VAR
  56.     Usr:_Usr;
  57.  
  58.   BEGIN
  59.     ReadUser('LastUser.BBS',usr,1);
  60.     ChkError;
  61.     WriteUser('Last.BBS',Usr,1);
  62.     ChkError;
  63.     writeln(OpIntERROR);
  64.     WriteUsr(Usr);
  65.     ReadUser('User.BBS',usr,3);
  66.     ChkError;
  67.     WriteUser('User2.bbs',usr,3);
  68.     ChkError;
  69.     WriteUser('first.bbs',usr,1);
  70.     ChkError;
  71.     WriteUsr(Usr);
  72.   END;
  73.  
  74. Procedure WrMemUsr;
  75.  
  76.   VAR
  77.     Usr:_Usr;
  78.     UsrPtrNum: Integer;
  79.  
  80.   BEGIN
  81.     ReadUserFile('User.BBS',UsrPtr,UsrPtrNum);
  82.     ChkError;
  83.     WriteUserFile('User3.bbs',UsrPtr);
  84.     ChkError;
  85.     ReadUserFast(UsrPtr,Usr,3);
  86.     ChkError;
  87.     WriteUser('firs2.bbs',Usr,1);
  88.     ChkError;
  89.     WriteUsr(Usr);
  90.   END;
  91.  
  92. Procedure MemUsr;
  93.  
  94.   VAR
  95.     i: Integer;
  96.     Usr:_Usr;
  97.     UsrPtrNum: Integer;
  98.  
  99.   BEGIN
  100.     ReadUserFile('User.BBS',UsrPtr,UsrPtrNum);
  101.     ChkError;
  102.     writeln;
  103.     writeln(UsrPtrNum);
  104.     WriteUserFile('User3.bbs',UsrPtr);
  105.     ChkError;
  106.     ReadUserFast(UsrPtr,Usr,3);
  107.     ChkError;
  108.     DelUserPtr(UsrPtr,3);
  109.     ChkError;
  110.     WriteUserFile('user5.bbs',UsrPtr);
  111.     ChkError;
  112.     InsUserPtr(UsrPtr,Usr,3);
  113.     ChkError;
  114.     WriteUserFile('user6.bbs',UsrPtr);
  115.     ChkError;
  116.     WriteUser('firs2.bbs',Usr,1);
  117.     ChkError;
  118.     WriteUsr(Usr);
  119.     FOR i:= 1 TO UsrPtrNum DO
  120.       BEGIN
  121.         ReadUserFast(UsrPtr,Usr,I);
  122.         ChkError;
  123.         WriteUsr(Usr);
  124.         WriteUser('User4.BBS',Usr,I);
  125.         ChkError;
  126.       END;
  127.     FOR i:= 1 TO UsrPtrNum DO
  128.       BEGIN
  129.         readUser('User.BBS',Usr,I);
  130.         ChkError;
  131.         WriteUser('User2.BBS',Usr,I);
  132.         ChkError;
  133.       END;
  134.     readUser('User.BBS',Usr,3);
  135.     ChkError;
  136.     WriteUser('first.bbs',Usr,1);
  137.     ChkError;
  138.   END;
  139.  
  140. BEGIN
  141.   WrUsr;
  142.   Readln;
  143.   WrMemUsr;
  144.   readln;
  145.   MemUsr;
  146.   readln;
  147. END.
  148.